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MODULE filinput ( 


BEGIN 


‘ 
PESTS STITT TTT i citric iit iit ii iti ii iit isiiitiiiiiity 
'@ 7 
' COPYRIGHT s 1978, 1980, 1982, 1984 B a 
ie DIGITAL EQUIPMENT CORPO RATION, MAYHARD. MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. * 
es 
ie lt SOFTWARE IS cynics UNDER A LICENSE AND MAY BE USED AND gh Le * 
ie Y IN ACCORDANCE WITH THE TERMS OF revs LICENSE AND WITH THE * 
'e INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'w COPIES THEREOF - NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'@ TRANSFERRED. * 
& 
ie THe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘fe SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'e CORPORA TION. * 
e 
® 
¥ 
® 
® 
ae 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'¢ 
i FACILITY: File Handling Utilities 


ABSTRACT: 


This module contains declarations of the RMS data storage areas needed 
for handling input file specifications. 


ENVIRONMENT : 


VAX/VMS epereting system mprtatloged user mode utility, 
operates at non-AST leve 


i AUTHOR: Carol Peters, CREATION DATE: 25 April 1978 07:56 
i REVISION HISTORY: 
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: v03-001 FSx9001 Tamar Krichevsky ge ay 

' Remive the declaration and all reference to DUMMY_NAM_BLK. 
‘ This is part of the conversion to LIBSFIND_FILE ter input 
file processing. 


COPY. SRCJFILINPUT 832: 
ai Tats ae file RMS blocks for file handling utilities 
Vv es o 


5f | 
voc=000. HESeoctaGs GENEIR HAMedt Reig ytd! need | 


; 7 13 

: 1 : Include files 

; 60 ky 

: e ! LIBRARY ‘SYSSLIBRARY:STARLET.L32'; ! System definitions 

; 3 1! 

; 664 1! Global variables 

3; 1! i 

|. 1 GLOBAL | 
; 68 1 infile_fab : SFAB_DECL, } Space for the input file FAB, which 
; +4 : : s filled in at execution time 
: (71 1 infile_rab : $SRAB_DECL, ' Space for the input file RAB, which 
5 Lf: , : is filled in at execution time 
; : infile_name : VECTOR Cnam$c_maxrss, BYTE], ! Input file name after open | 
: ue 1 infile_xname : VECTOR Cnam$c_maxrss, BYTE], ! Input file name before open | 
; «78 1 infile_nam_blk : SNAM ( ! Input file name bloc | 
; 1 RSA = infile_name, : Address and len th of ae input | 
; 1 RSS = nam$c_Maxrss, : file name after 

3; #8 1 ESA = infilé_xname ! Address and length my the input 

; 8¢ : ESS = nam$c_maxrss), ! file name before open 

; Ba 1 ! Input file XAB chain: 

3; 685 ; infile_xabpro : SXABPRO (), : Protection XAB 

; Ha 1 infile_xabfhc : SXABFHC ( : File header characteristics XAB 

; a8 : NXT = infile_xabpro), 

: 90 1 infile_xabdat : SXABDAT ( ! —- Date/time XAB 

; 4 ! NXT = infile_xabfhe), 

; 35 1 infile_xaball : SXABALL ( ! Allocation XAB 

; Be ; NXT = infile_xabdat), 

: 9% 1 in_name_desc VECTOR (2) ! Input file name descriptor 

; 44 009 ! INITIAL (0 

: 99 0098 1 infile_cli_desc : $bblockC DSC$C_S_BLN J : rer for input name on command Line 

: 100 0 1 INITIAL( WORD(O)> BBY TE(O, DSCSK_ Chass _D), LONG(O)); 


| 
| 
| 
| 
- infile_name), | 
| 
| 
} 
| 
| 
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FILINPUT 


C2) 


\v04-000\ 
-PSECT SGLOBAL$,NOEXE,2 
00000 INFILE_FAB:: 
-BLK 80 
00050 INFILE_RAB:: 
-BLKB 68 
00094 INF ILE_NAME:: 
-BLK 255 
0193 -BLKB 
0194 INFILE_XNAME:: 
-BLKB 255 
OOS: -BLKB 1 
02 00294 INFILE_NAM BLK:: 
-BYTE 3 
60 00 -BYTE 6 
FF 00 -BYTE <1 
9° 0 BYTE 0 
00000000° 00 -ADDRESS INF ILE_NAME 
00 : BYTE 0 
00 -BYTE 0 
FF 00 BYTE <1 
4 0 -BYTE 0 
00000° 00 eADDRESS INF ILE_XNAME 
0000000 00 -LONG 
000% 00 - WORD 3 
00% 00 WORD 
000# 00 «WORD 3] 
00000000 00 -LONG 
00000000 00 -LONG 
0 00 -BY 
0 
0 
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PSECT SUMMARY 


8 
INF ILE_XABFHC:: 


INFILE LXABDAT: : 
7 L 


LONG 
INF ILE_XABALL: : 
BYE 


3B¢ 2:10:20 EeGer'sReJPTcineut e30s1 


YTE 29 
-BYTE 3° 


“ADDRESS ofp te XABPRO 


18 
BYTE 44 
WORD 0 
-ADDRESS INF ILE_XABFHC 
- WORD 
“LONG 
‘tone 9083 
- LONG 
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«WORD 
oe INF ILE_XABDAT 
-BYTE 
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-WORD 
IN_NAME_DESC:: 


NG 
~ADDRESS INF ILE __NAME 


C INFILE_CLI_DESC:: 


- WORD 
“BYTE , 2 
- LONG 


$ 
~ 
w 
~sS 


Aes HEosto-tags 48:18 YeRst' RLpar ate 334 
i Name Bytes Attributes 
; SGLOBALS 980 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


yee aie ee eee ee ee - Symbols -------- Pages Processing 

3 File Total ioaded Percent Mapped ime 

$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 37 0 581 00:01.0 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:F ILINPUT/OBJ=OBJ$:FILINPUT MSRC$:F ILINPUT/UPDATE=(ENH$:F ILINPUT) 


: Size: 0 code + 980 data bytes 


: _—— Used: 49 pages 
; Compilation Complete 
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